home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / educatio / birdatmy.sit / Bird Anatomy%d0v1.2d / stack.txt < prev   
Encoding:
Text File  |  1989-07-02  |  6.4 KB  |  229 lines
  1. -- stack: in.2d
  2. -- format: 8 (HyperCard 1)
  3. -- flags: 0x1000 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=0, y1=0, x2=0, y2=0)
  7. -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
  8. -- card dimensions: w=0 h=0
  9. -- scroll: x=0 y=0
  10. -- background count: 7
  11. -- first background id: 5175
  12. -- card count: 47
  13. -- first card id: 13039
  14. -- list block id: 5716
  15. -- print block id: 24823
  16. -- font table block id: 0
  17. -- style table block id: 0
  18. -- free block count: 2
  19. -- free size: 4864 bytes
  20. -- total size: 581632 bytes
  21. -- stack block size: 5632 bytes
  22. -- created by hypercard version: 0x00000000
  23. -- compacted by hypercard version: 0x01208000
  24. -- modified by hypercard version: 0x01208000
  25. -- opened by hypercard version: 0x01228000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x55A95A94AB54AA55
  30. -- patterns[4]: 0xFFFFDFFBEFFBDFFF
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xFF00FF00FF00FF00
  41. -- patterns[15]: 0x8000000000000000
  42. -- patterns[16]: 0xC300B90820401600
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0xE0371C00F80FE000
  51. -- patterns[25]: 0x88AAAAAAAA88AA88
  52. -- patterns[26]: 0xC8C2109800666608
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0x4004000800200200
  64. -- patterns[38]: 0x0084200028010000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x0
  67. ----- HyperTalk script -----
  68. on openStack
  69.   if the version < 1.2 then
  70.     answer "This stack needs HyperCard version 1.2."
  71.     set lockMessages to true
  72.     go home
  73.   else
  74.     play "Chorus"
  75.     hide menubar
  76.     hide message
  77.     set cursor to 4
  78.     go to card "main menu"
  79.     push card
  80.     show card field "loading"
  81.     set lockScreen to true
  82.     set lockMessages to true
  83.     show all cards
  84.     set lockScreen to false
  85.     set lockMessages to false
  86.     hide card field "loading"
  87.     global menu1, menu2, saveLevel, openField
  88.     put the userLevel into saveLevel
  89.     set the userLevel to 2
  90.     put NewMenu("Sections","General","Head","Wings", "Feathers","Flight","Ecology","(-","HELP Card","(-", "References","Glossary","Outline") into menu1
  91.     if menu1 is 0 then answer("Unable to make menu 'Sections'") with "Damn"
  92.     put NewMenu("Video","Vdisc","(-","StartUp Player") into menu2
  93.     if menu2 is 0 then answer("Unable to make menu 'Video'") with "Damn"
  94.   end if
  95. end openStack
  96.  
  97. on closeStack
  98.   set cursor to 4
  99.   visual iris close
  100.   go to card "Main Menu"
  101.   visual dissolve slowly
  102.   go to card "Closing Credit"
  103.   wait 13 seconds
  104.   global menu1, menu2, saveLevel
  105.   put DeleteMenu(menu1) into menu1
  106.   put DeleteMenu(menu2) into menu2
  107.   set userlevel to saveLevel
  108.   show menubar
  109.   play silence
  110. end closeStack
  111.  
  112. on idle
  113.   global menu1, menu2, lastTick
  114.   if (the ticks-lastTick)>120 then
  115.     put the ticks into lastTick
  116.     ShowMenu(menu1)
  117.     ShowMenu(menu2)
  118.   end if
  119.   pass idle
  120. end idle
  121.  
  122. on doMenu which
  123.   global menu1, menu2
  124.   if which is "Vdisc" then
  125.     visual iris open
  126.     go to card "Main Menu/Vdisc"
  127.   else if which is "General" then
  128.     visual iris open
  129.     go to card "General"
  130.   else if which is "Head" then
  131.     visual iris open
  132.     go to card "Head Anatomy"
  133.   else if which is "Wings" then
  134.     visual iris open
  135.     go to card "Wings-1"
  136.   else if which is "Feathers" then
  137.     visual iris open
  138.     go to card "Feather-1"
  139.   else if which is "Flight" then
  140.     visual iris open
  141.     go to card "Flight-1"
  142.   else if which is "Ecology" then
  143.     visual iris open
  144.     go to card "Ecology"
  145.   else if which is "HELP Card" then
  146.     visual iris open
  147.     go to card "Help Card"
  148.   else if which is "References" then
  149.     visual iris open
  150.     go to card "References"
  151.   else if which is "Glossary" then
  152.     visual iris open
  153.     go to card "Glossary"
  154.   else if which is "Outline" then
  155.     visual venetian blinds
  156.     go to card "Outline"
  157.   else if which is "StartUp Player" then
  158.     answer "Turn on player and Monitor." with "Cancel" or "OK"
  159.     if it is "cancel" then exit to Hypercard
  160.     answer "Place disc into the disc drawer face down." with "Cancel" or "OK"
  161.     if it is "cancel" then exit to Hypercard
  162.     answer "Close the disc drawer" with "Cancel" or "OK"
  163.     if it is "cancel" then exit to HyperCard
  164.     answer "Startup takes about 30 seconds, please wait" with "Cancel" or "OK"
  165.     if it is "cancel" then exit to HyperCard
  166.     if it is "OK" then
  167.       set cursor to 4
  168.       video play
  169.       wait 25 seconds
  170.       video picture, off
  171.       video search, 001
  172.     end if
  173.     answer "Disc startup complete"
  174.     if it is "OK" then
  175.       video search, 001
  176.       video sound, 1
  177.       video sound, 2
  178.       video picture
  179.     end if
  180.   else pass doMenu
  181. end doMenu
  182.  
  183. on glossarySearch
  184.   global openField
  185.   set lockText of the target to false
  186.   put the short name of the target into openField
  187.   click at the clickLoc
  188.   click at the clickLoc
  189.   if the selection is empty then
  190.     set lockText of the target to true
  191.     exit glossarySearch
  192.   else
  193.     put the selection into searchWord
  194.     set lockText of the target to true
  195.     put searchWord & "ΓÇô" into searchString
  196.     set lockScreen to true
  197.     go to card "Glossary"
  198.     find searchString in field "glossary"
  199.     if the result is not empty then
  200.       pop card
  201.       show card field openField
  202.       set lockscreen to false
  203.       set cursor to 4
  204.       put "Sorry," && "ΓÇ£" & searchWord & "ΓÇ¥" && "isn't listed in the Glossary" into message
  205.       wait 4 seconds
  206.       hide message
  207.     else
  208.       if the result is empty then
  209.         set lockScreen to false
  210.       end if
  211.     end if
  212.   end if
  213. end glossarySearch
  214.  
  215. on video
  216.   put "PioneerLDV6000" into player
  217.   put the params into command
  218.   put player into word 1 of command
  219.   do command
  220. end video
  221.  
  222. on enterKey
  223.   choose Browse tool
  224. end enterKey
  225.  
  226.  
  227.  
  228.  
  229.